www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/So_fenlei.asp

    <%
k=0
if request("page")="" then 
   thispage=1
else 
   thispage=request("page")
end if
%>
<div align=center>

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">



<tr>
<td colspan="2">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" >
<tr>

<td height="29" bgcolor="e7ebef" style="font-weight: bold" width="69%">
<p align="center">信 息 标 题</td>
<td width="14%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">
	信息分类</div></td>
<td width="14%" bgcolor="e7ebef" style="font-weight: bold"><div align="center">日期</div></td>

<%


	set rs=server.createobject("adodb.recordset")
	sql="select * from Gu_pinke where title like '%" & keywords & "%' or content like  '%" & keywords & "%'"



	
	sql=sql&" order by id desc"
	'response.write sql
	'response.End
	rs.open sql,conn,1,1


If rs.BOF or rs.EOF Then 
%>
</tr>
<tr bgcolor="#C6E3F4">
  <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">您搜索的信息暂无！</td>
  </tr>
<%
else

	
	  '分页开始
       rs.pagesize=20
       pagesize=rs.pagesize
       allrecord=rs.recordcount
       allpages=rs.pagecount
       if thispage<1 then
       thispage=1   
       end if
       on error resume next
       rs.move (thispage-1)*pagesize
      '分页结束 

'分页循环开始
dim j
		  j=1
		  do while not rs.eof
%>
<tr>

<td height="24" width="69%">
·
<a href="Gu_showpinke.asp?guxing=<%=rs("id")%>" title="<%=rs("title")%>" >
<%=Trim(rs("title"))%></a>

</td>
<%
cid=rs("pkind")
set kurs=server.createobject("adodb.recordset")
    csql="select * from Gu_pkind where id="&cid
    kurs.open csql,conn,1,3
%>

<td align="center"><%=kurs("name")%></td>

<td align="center"><%=DateTimeFormat(rs("addtime"),4)%></td>



</tr>
 <% k=k+1
		     rs.movenext
			 j=j+1
			 if k>=pagesize then exit do
		     loop
			 end if%>
     <tr class="tablemenu"><td height="25" colspan="7" align="center">共<font color=red><%=allrecord%></font>条记录&nbsp;&nbsp;每页<font color=red><%=pagesize%></font>条&nbsp;&nbsp;共<font color=red><%=allpages%></font>页&nbsp;&nbsp;
       <%
      if allpages<2 then
       response.write "首页&nbsp;&nbsp;上一页"
      else 
      %><a href=?modes=<%=modes%>&keyword=<%=keywords%>&page=1>首页</a>&nbsp;&nbsp;<a href=?modes=<%=modes%>&keyword=<%=keywords%>&page=<%=(thispage-1)%>>上一页</a>
     <%
	 end if 
     if allpages-thispage<1 then
     response.write "&nbsp;&nbsp;下一页&nbsp;&nbsp;尾页"
    else
	%>
     &nbsp;&nbsp;<a href=?modes=<%=modes%>&keyword=<%=keywords%>&page=<%=(thispage+1)%>>下一页</a>&nbsp;&nbsp;<a href=?modes=<%=modes%>&keyword=<%=keywords%>&page=<%=allpages%>>尾页</a></td></tr>
<%
rs.close
set rs=nothing

end if
 %>
</table></td>
  </tr>


</table>
</div>